home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / util / boot / AmiGreet.lha / AmiGreet / Install < prev    next >
Text File  |  1997-12-05  |  7KB  |  260 lines
  1. ;
  2. ;
  3. ; AmiGreet  - v1.4 Install Script
  4. ;           - By Gareth 'Gaz' Murfin
  5. ;           - (11.12.97)
  6. ;
  7. ;
  8. (set version "1.4")
  9.  
  10. (if (= (exists "ENV:AmiGreet/Name"))
  11.  (set #who (getenv "AmiGreet/Name"))
  12. )
  13.  
  14. (if (= (exists "ENV:AmiGreet/Country"))
  15.  (set #country (getenv "AmiGreet/Country"))
  16. )
  17.  
  18. (if (= (exists "ENV:AmiGreet/Where"))
  19.  (set #where (getenv "AmiGreet/Where"))
  20. )
  21.  
  22. (
  23. (set #update   (cat 'Hi '#who''))
  24. )
  25.  
  26. (
  27. (set #details   (cat 'Country - '#country'\nSource - '#where'\nName - '#who''))
  28. )
  29.  
  30. ;Program name & by Gareth Murfin Scrolling.
  31. (procedure WAITX (set X 1) ( (while (< X 100)  (set X (+ X 1)) )  ) )
  32. (working "\n\n\n\n\n\n\n\n\n\n\n\n\nAmiGreet v1.4") (WAITX)
  33. (complete 0)
  34. (working "\n\n\n\n\n\n\n\n\n\n\n\nAmiGreet v1.4") (WAITX)
  35. (complete 1)
  36. (working "\n\n\n\n\n\n\n\n\n\n\nAmiGreet v1.4") (WAITX)
  37. (complete 2)
  38. (working "\n\n\n\n\n\n\n\n\n\nAmiGreet v1.4") (WAITX)
  39. (complete 3)
  40. (working "\n\n\n\n\n\n\n\n\nAmiGreet v1.4") (WAITX)
  41. (complete 4)
  42. (working "\n\n\n\n\n\n\n\nAmiGreet v1.4") (WAITX)
  43. (complete 5)
  44. (working "\n\n\n\n\n\n\nAmiGreet v1.4") (WAITX)
  45. (complete 6)
  46. (working "\n\n\n\n\n\nAmiGreet v1.4") (WAITX)
  47. (complete 7)
  48. (working "\n\n\n\n\nAmiGreet v1.4") (WAITX)
  49. (complete 8)
  50. (working "\n\n\n\nAmiGreet v1.4") (WAITX)
  51. (complete 9)
  52. (working "\n\n\nAmiGreet v1.4") (WAITX)
  53. (complete 10)
  54. (working "\n\nAmiGreet v1.4") (WAITX)
  55. (complete 11)
  56. (working "\n\nAmiGreet v1.4") (WAITX)
  57. (complete 12)
  58. (working "\nAmiGreet v1.4") (WAITX)
  59. (complete 13)
  60. (working "\nAmiGreet v1.4") (WAITX)
  61. (complete 14)
  62. (working "\nAmiGreet v1.4\n\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
  63. (complete 15)
  64. (working "\nAmiGreet v1.4\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
  65. (complete 16)
  66. (working "\nAmiGreet v1.4\n\n\n\n\n\n\n\n\n\nby") (WAITX)
  67. (complete 17)
  68. (working "\nAmiGreet v1.4\n\n\n\n\n\n\n\n\nby") (WAITX)
  69. (complete 18)
  70. (working "\nAmiGreet v1.4\n\n\n\n\n\n\n\nby") (WAITX)
  71. (complete 19)
  72. (working "\nAmiGreet v1.4\n\n\n\n\n\n\nby") (WAITX)
  73. (complete 20)
  74. (working "\nAmiGreet v1.4\n\n\n\n\n\nby") (WAITX)
  75. (complete 21)
  76. (working "\nAmiGreet v1.4\n\n\n\n\nby") (WAITX)
  77. (complete 22)
  78. (working "\nAmiGreet v1.4\n\n\n\nby") (WAITX)
  79. (complete 22)
  80. (working "\nAmiGreet v1.4\n\n\nby") (WAITX)
  81. (complete 23)
  82. (working "\nAmiGreet v1.4\n\n\nby") (WAITX)
  83. (complete 24)
  84. (working "\nAmiGreet v1.4\n\n\nby\n\n\n\n\n\n\n\n\nGareth Murfin.") (WAITX)
  85. (complete 25)
  86. (working "\nAmiGreet v1.4\n\n\nby\n\n\n\n\n\n\n\nGareth Murfin.") (WAITX)
  87. (complete 26)
  88. (working "\nAmiGreet v1.4\n\n\nby\n\n\n\n\n\n\nGareth Murfin.") (WAITX)
  89. (complete 27)
  90. (working "\nAmiGreet v1.4\n\n\nby\n\n\n\n\n\nGareth Murfin.") (WAITX)
  91. (complete 28)
  92. (working "\nAmiGreet v1.4\n\n\nby\n\n\n\n\nGareth Murfin.") (WAITX)
  93. (complete 29)
  94. (working "\nAmiGreet v1.4\n\n\nby\n\n\n\nGareth Murfin.") (WAITX)
  95. (complete 30)
  96. (working "\nAmiGreet v1.4\n\n\nby\n\n\nGareth Murfin.") (WAITX)
  97. (message "\n\n\nAmiGreet v1.4\n\n\nby\n\n\nGareth Murfin.") (WAITX)
  98. (run "c/play16 <>nil: c/life.iff")
  99. (welcome)
  100. ;End of Introduction.
  101. ;
  102. ;
  103. ;
  104. (message
  105.   #update
  106.   "\n\nWelcome to AmiGreet v1.4\nBy Gareth Murfin."
  107.   "\n\nThis installer will setup AmiGreet so that it will"
  108.   "\nrun automatically on each bootup."
  109.   "\n\nAny old versions of AmiGreet found will be deleted."
  110.   "\n\neMail.........................gazy@globalnet.co.uk"
  111.   "\nURL........http://www.users.globalnet.co.uk/~gazy/"
  112.   "\nIRC................SpryNet.US.GalaxyNet.Org #AmIRC"
  113. )
  114. (complete 40)
  115. ;
  116. ;
  117. (delete "SYS:WbStartup/AmiGreet" (all))
  118. (delete "SYS:WbStartup/AmiGreet.info" (all))
  119. (delete "SYS:WbStartup/AmiGreetUK" (all))
  120. (delete "SYS:WbStartup/AmiGreetUK.info" (all))
  121. (delete "SYS:WbStartup/AmiGreetDE" (all))
  122. (delete "SYS:WbStartup/AmiGreetDE.info" (all))
  123. (delete "SYS:WbStartup/AmiGreetPO" (all))
  124. (delete "SYS:WbStartup/AmiGreetPO.info" (all))
  125. (delete "SYS:WbStartup/AmiGreetNL" (all))
  126. (delete "SYS:WbStartup/AmiGreetNL.info" (all))
  127. (delete "SYS:WbStartup/AmiGreet?UK?" (all))
  128. (delete "SYS:WbStartup/AmiGreet?UK?.info" (all))
  129. (delete "SYS:WbStartup/AmiGreet?DE?" (all))
  130. (delete "SYS:WbStartup/AmiGreet?DE?.info" (all))
  131. (delete "SYS:WbStartup/AmiGreet?PO?" (all))
  132. (delete "SYS:WbStartup/AmiGreet?PO?.info" (all))
  133. ;
  134. ;
  135. (message
  136. "\n AmiGreet® is © by Gareth Murfin 1996-97"
  137. "\n C< Alpha Software"
  138. "\n\n\n"
  139. "* AmiGreet Registration Details *"
  140. "\n\n\n"
  141. #details
  142. )
  143. ;
  144.  
  145. (complete 42)
  146.  
  147. (set #DOC
  148.  (askoptions
  149.   (prompt "Select version of AmiGreet to Install")
  150.    (help (cat @askoptions-help))
  151.     (default 1)
  152.     (choices "English" "Polish" "German" "Dutch")
  153.   )
  154. )
  155.  
  156. ; *** Copy Doc(s) to given path ***
  157. (if (IN #DOC 0) (copyfiles (source "AmiGreetUK") (dest "SYS:WbStartup")))
  158. (if (IN #DOC 0) (copyfiles (source "AmiGreetUK.info") (dest "SYS:WbStartup")))
  159. ;Copy UK AmiGreet & icon
  160. (if (IN #DOC 1) (copyfiles (source "AmiGreetPO") (dest "SYS:WbStartup")))
  161. (if (IN #DOC 1) (copyfiles (source "AmiGreetPO.info") (dest "SYS:WbStartup")))
  162. ;Copy Polish AmiGreet & icon
  163. (if (IN #DOC 2) (copyfiles (source "AmiGreetDE") (dest "SYS:WbStartup")))
  164. (if (IN #DOC 2) (copyfiles (source "AmiGreetDE.info") (dest "SYS:WbStartup")))
  165. ;Copy German AmiGreet & icon
  166. (if (IN #DOC 3) (copyfiles (source "AmiGreetNL") (dest "SYS:WbStartup")))
  167. (if (IN #DOC 3) (copyfiles (source "AmiGreetNL.info") (dest "SYS:WbStartup")))
  168. ;Copy Dutch AmiGreet & icon
  169. (complete 50)
  170.  
  171.  
  172.  
  173.  
  174. ;---------------------
  175. (complete 80)
  176. (copyfiles
  177.   (source "c/Say")
  178.   (dest "C:")
  179.   (all)
  180. )
  181. ;---------------------
  182. ;
  183. ;---------------------
  184. (complete 85)
  185. (copyfiles
  186.   (source "devs/narrator.device")
  187.   (dest "DEVS:")
  188.   (all)
  189. )
  190. ;---------------------
  191. (complete 90)
  192. (copyfiles
  193.   (source "libs/translator.library")
  194.   (dest "LIBS:")
  195.   (all)
  196. )
  197. ;---------------------
  198. ;
  199. (makedir "ENVARC:AmiGreet")
  200. ;
  201. (message
  202. "\n\n AmiGreet is 'freeware' which means it is free to register. This installer will register you as an official AmiGreet user. All you have to do is fill in your details."
  203. "\n\n\n\n AmiGreet * FREE * Registration"
  204. )
  205.  
  206.  
  207.  
  208. (set name
  209.  (askstring
  210.   (prompt "Please enter your full name.")
  211.   (help @askstring-help)
  212.  )
  213. )
  214.  
  215. (textfile
  216.  (dest "ENVARC:AmiGreet/Name")
  217.  (append name)
  218. )
  219.  
  220. (set country
  221.  (askstring
  222.   (prompt "Please enter the name of country you live in.")
  223.   (help @askstring-help)
  224.  )
  225. )
  226.  
  227. (textfile
  228.  (dest "ENVARC:AmiGreet/Country")
  229.  (append country)
  230. )
  231.  
  232. (set where
  233.  (askstring
  234.   (prompt "Please enter where you obtained AmiGreet.")
  235.   (help @askstring-help)
  236.  )
  237. )
  238.  
  239. (textfile
  240.  (dest "ENVARC:AmiGreet/Where")
  241.  (append where)
  242. )
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249. (complete 95)
  250. (message
  251. "\n\n AmiGreet v1.4 was installed successfully!"
  252. "\n Reboot your Amiga to hear AmiGreet talk to you!"
  253. "\n\n\n** Alpha Software - Contact details **"
  254. "\n URL......http://www.users.globalnet.co.uk/~gazy/"
  255. "\n eMail.......................gazy@globalnet.co.uk"
  256. "\n IRC..............SpryNet.Us.GalaxyNet.Org #AmIRC"
  257. "\n\n Enjoy AmiGreet v1.4..."
  258. )
  259. (complete 100)
  260.